<!--#include file="family_inc.asp" -->
<!--#include virtual="/common/Cls_Page.asp" -->
<%
Dim city,area,corp_type,corp_type2,tag
If Request.ServerVariables ("Request_Method")="POST" Then
	city		= Reform("city") 
	area		= Reform("area")
	corp_type	= Reform("corp_type")
	corp_type2	= Reform("corp_type2")
	tag			= Reform("tag")
Else
	city		= Requery("city") 
	area		= Requery("area")
	corp_type	= Requery("corp_type")
	corp_type2	= Requery("corp_type2")
	tag			= Requery("tag")
End If 
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="963123.com" />
<meta name="Copyright" content="Copyright (c) 2010 963123.com" />
<meta name="Description" content="海南家政信息服务平台" />
<meta name="Keywords" content="海南家政网,家政,家教,家庭服务,保洁,保姆,护理,钟点工,海南旅游,海南美食,生活,生活服务" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>海南家政服务企业_海南家政信息请拔963123</title>
<link href="/skin/lafot/uview.css" rel="stylesheet" type="text/css" media="screen" />
<script type="text/javascript" src="/javascript/lafotLib.js"></script>
<script src="/javascript/JQ/jquery.js" type="text/javascript"></script>
<script language="javascript" src="javascript/family.js"></script>

</head>
<body>
<!--#include Virtual="/include/head.asp" -->
<!--E:Header-->
<div id="current">
  <div class="m">
    <p class="idata tl">您的当前位置：<a href="/"><strong>首页</strong></a> > 家政</p>
  </div>
</div>
  	 <!--S:UN-LIST-TAG-->
<div id="infromtag">
    <div class="m">
        <div class="un-list-tag">
           <form id="form_search" name="form_search" action="f_index.asp" method="post">
            <ul>
                <li><label><strong>所在城市：</strong></label><% Call City_List(city)%></li>
                <% If IsNumeric(city) Then %>
                <li><label><strong>所在商圈：</strong></label><% Call Area_List(area)%></li>
                <% End If %>
    
                <li><label><strong>服务范围：</strong></label><% Call Corp_Type_List(corp_type)%></li>
                <% If IsNumeric(corp_type) Then %>
                <li><label>&nbsp;</label><% Call Corp_Type_List2(corp_type2)%></li>
                <% End If %>
                <% If tag<>"" Then %>
                <li><label><strong>标签：</strong></label><% Call Tag_List(tag)%></li>
                <% End If %>

				
            </ul>
            <input name="city" type="hidden" value="<%=city%>" />
            <input name="area" type="hidden" value="<%=area%>" />
            <input name="corp_type" type="hidden" value="<%=corp_type%>" />
            <input name="corp_type2" type="hidden" value="<%=corp_type2%>" />
            <input name="tag" type="hidden" value="<%=tag%>" />
   
            </form>	
        </div>
        <!--E:UN-LIST-TAG-->
    </div>
    
</div>
<div id="content">
    <div class="m">
    <div id="un-list-con">
    	<div class="un-list-l">
		<%	

			Dim Ors		
			Set Ors = New Class_Page

			Sql = " 1=1 "
			If IsNumeric(city) Then 
				sql = Sql &" AND Corp_City_Area IN (SELECT ID FROM City_Area WHERE parent_id="&city&")"
			End If 

			Sql = EqualSql("corp_city_area",area,Sql)
			If IsNumeric(corp_type) Then 
				sql = Sql &" AND Corp_Type IN (SELECT ID FROM Corp_Type WHERE parent_id="&corp_type&")"
			End If 
			Sql = EqualSql("Corp_Type",corp_type2,Sql)
			'Sql = Sql & " AND (HT_Travel_Type ='一日游' )"
			'Sql = LikeSql("HT_Title",Travel_Title,Sql)
			If tag<>"" Then 
				sql = Sql &" AND ID IN (SELECT Corp_ID FROM Corp_Info_Tag WHERE Corp_Tag='"&tag&"')"
			End If 

			'================================
			'Table 查询的表或是视图
			Ors.Table="Corp_Info"

			'Field SQL语句SELECT数据库的字段
			Ors.Field="ID,Corp_Name,Corp_Pic,Corp_Tel,Corp_Address,Corp_Business,Corp_Address_S"

			'Pkey主键
			Ors.Pkey="ID"

			'OrderBy 排序字段


			Ors.OrderBy="Corp_Address_S DESC,Update_Date DESC"

			Ors.PageSize=10 '每页记录数

			'Condition 使用的条件，Tt_Title_Sql.....等等
			Ors.Condition=sql

			'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
			Ors.PostString = "city|area|corp_type|corp_type2|tag"

			RecCount = Ors.RecCount() '记录总数
			Array_List = Ors.ResultSet() '返回ResultSet

			If RecCount>0 Then
			%>
        	<h2>共有<%=RecCount%>商家</h2>
            <div class="uninos">
            	<ul>
					<% 
					For i=0 To UBound(Array_List,2)
						ID				= Array_List(0,i)
						Corp_Name		= Array_List(1,i)
						Corp_Pic		= Array_List(2,i) 
						Corp_Tel		= Array_List(3,i)
						Corp_Address	= Array_List(4,i)
						Corp_Business	= Array_List(5,i)
						Corp_Address_S	= Array_List(6,i)
						detail_url		= "family_detail.asp?fm_id="&ID
					%>
                	<li>
                    	<p class="unimg"><a href="<%=detail_url%>"><img src="<% if Corp_Pic<>"" then%><%=Corp_Pic%><%else%>/images/none.png<%end if%>" width="120" height="90" /></a></p>
                        
                        <div class="uninfo">
                        <h3><span>(<%=Corp_Address_S%>)</span><a href="<%=detail_url%>"><%=Corp_Name%></a></h3>
                        <p>地址：<%=Corp_Address%></p>
                        <p>电话：<%=Corp_Tel%></p>
                        <p>服务：<%=Corp_Business%></p>
                        </div>

                    </li>
					<% Next %>
                </ul>
            </div>
            <!--S:UNION-->
			<% If Ors.PageCount()>1 Then %>
				<div class="pages tc"><% Call Ors.ShowPage4() %></div> 
			<% End If %>
			<% End If %>
            <!-- S:PAGES -->
        </div>
        <div class="un-list-r">
        	<div class="top-d mod-right">
            <script type="text/javascript" src="/uploadimages/2010031910593339573780.js"></script>
            </div>
            <div class="mod-right picShow-Article">
                <div class="hd"><h2>热点商家</h2></div>
                <div class="bd">
                    <ul>
						<% Hot_Corp_List() %>

                    </ul>
                </div>
            </div>
            
            <div class="mod-right">
                <div class="hd">
                    <h2>优惠信息</h2>
                </div>
                <div class="bd">
                    <div class="innerBox">
                      <ul class="toplist">
						<% Call Corp_Sale_News_List() %>
                      </ul>
                    </div>
                </div>
            </div>
        
        </div>
        <!-- S:UN-LIST-R -->
    </div>
    <!--E:UN-LIST-CON-->
  </div>
</div>
<!--E:Content-->

<!--#include Virtual="/include/bottom.asp" -->
</body>
</html>
<%
Sub City_List(City_Value)
	If City_Value="" Or IsNumeric(City_Value)=False Then 
		Response.Write "<a class=""active"">不限</a> "
		area=""
	Else
		Response.Write "<a onclick=""Family_Search('','1')"">不限</a>"			
	End If 
	City_List_Array = GetRsRows("SELECT id,ca_name FROM City_Area WHERE parent_id=0 ORDER BY CA_Order ASC")
	If IsArray(City_List_Array) Then 
	For i=0  To UBound(City_List_Array,2)
		If CStr(City_List_Array(0,i))=CStr(City_Value) Then 
			Response.Write "<a class=""active"">"&City_List_Array(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Family_Search('"&City_List_Array(0,i)&"','1')"">"&City_List_Array(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
Sub Area_List(area_value)
	If area_value="" Or IsNumeric(area_value)=False Then 
		Response.Write "<a class=""active"">不限</a> "
	Else
		Response.Write "<a onclick=""Family_Search('','2')"">不限</a>"			
	End If 

	Area_List_Array = GetRsRows("SELECT id,ca_name FROM City_Area WHERE parent_id="&city&" ORDER BY CA_Order ASC")
	If IsArray(Area_List_Array) Then 
	For i=0  To UBound(Area_List_Array,2)
		If CStr(Area_List_Array(0,i))=CStr(area_value) Then 
			Response.Write "<a class=""active"">"&Area_List_Array(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Family_Search('"&Area_List_Array(0,i)&"','2')"">"&Area_List_Array(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
Sub Corp_Type_List(corp_value)
	If corp_value="" Or IsNumeric(corp_value)=False Then 
		Response.Write "<a class=""active"">不限</a> "
		corp_type2=""
	Else
		Response.Write "<a onclick=""Family_Search('','3')"">不限</a>"			
	End If 
	Corp_Type_List_Array = GetRsRows("SELECT id,Corp_Type_Name FROM Corp_Type WHERE parent_id=0 ORDER BY Corp_Order ASC")
	If IsArray(Corp_Type_List_Array) Then 
	For i=0  To UBound(Corp_Type_List_Array,2)
		If CStr(Corp_Type_List_Array(0,i))=CStr(corp_value) Then 
			Response.Write "<a class=""active"">"&Corp_Type_List_Array(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Family_Search('"&Corp_Type_List_Array(0,i)&"','3')"">"&Corp_Type_List_Array(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
Sub Corp_Type_List2(corp_value)
	If corp_value="" Or IsNumeric(corp_value)=False Then 
		Response.Write "<a class=""active"">不限</a> "
	Else
		Response.Write "<a onclick=""Family_Search('','4')"">不限</a>"			
	End If 
	Area_List_Array = GetRsRows("SELECT id,Corp_Type_Name FROM Corp_Type WHERE parent_id="&corp_type&" ORDER BY Corp_Order ASC")

	If IsArray(Area_List_Array) Then 
	For i=0  To UBound(Area_List_Array,2)
		If CStr(Area_List_Array(0,i))=CStr(corp_value) Then 
			Response.Write "<a class=""active"">"&Area_List_Array(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Family_Search('"&Area_List_Array(0,i)&"','4')"">"&Area_List_Array(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
Sub Tag_List(tag)
	If tag<>"" Then 
		Response.Write "<a onclick=""Family_Search('','5')"">不限</a>"
	Else
		Response.Write "<a class=""active"">"&tag&"</a> "
	End If 
	Response.Write "<a class=""active"">"&tag&"</a> "

End Sub 
%>